home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / strings.swg / 0011_FAST Upper-Justify String.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  3.2 KB  |  83 lines
  1. {
  2. > For some routins you may have.. Stuff like converting a String to
  3. > upperCase, padding a String, and things like that..  Mainly stuff to do
  4. > With Strings, as that seems to be my problem..  if you could, please
  5. > document your source so i can see how it is done.
  6.  
  7.  
  8. 1)The Good Old String UpCase Routine. I'm sure there are at least
  9.   several thousand Programmers, who have independently come up With code
  10.   exactly like this:
  11. }
  12.  
  13. Procedure StrUpr(Var S: String); Assembler;
  14. Asm
  15.   push    ds              { Save DS on stack }
  16.   lds     si, S           { Load DS:SI With Pointer to S }
  17.   cld                     { Clear direction flag - String instr. Forward
  18.   lodsb                   { Load first Byte of S (String length Byte) }
  19.   sub     ah, ah          { Clear high Byte of AX }
  20.   mov     cx, ax          { Move AX in CX }
  21.   jcxz    @Done           { Length = 0, done }
  22.   mov     ax, ds          { Set ES to the value in DS through AX }
  23.   mov     es, ax          { (can't move between two segment Registers) }
  24.   mov     di, si          { DI and SI now point to the first Char. }
  25. @UpCase:
  26.   lodsb                   { Load Character }
  27.   cmp     al, 'a'
  28.   jb      @notLower       { below 'a' -- store as is }
  29.   cmp     al, 'z'
  30.   ja      @notLower       { above 'z' -- store as is }
  31.   sub     al, ('a' - 'A') { convert Character in AL to upper Case }
  32. @notLower:
  33.   stosb                   { Store upCased Character in String }
  34.   loop    @UpCase         { Decrement CX, jump if not zero }
  35. @Done:
  36.   pop     ds              { Restore DS from stack }
  37. end;
  38.  
  39. {
  40. 2)Right justify routine. if Length(S) < Width then S will be
  41.   padded With spaces on the left.
  42. }
  43.  
  44. Procedure RightJustify(Var S: String; Width: Byte); Assembler;
  45. Asm
  46.    push    ds              { Save DS }
  47.    lds     si, S           { Load Pointer to String }
  48.    mov     al, [si]        { Move length Byte  in AL }
  49.    mov     ah, Width       { Move Width in AH }
  50.    sub     ah, al          { Subtract }
  51.    jbe     @Done           { if Length(S) >= Width then Done... }
  52.    push    si              { Save SI on stack }
  53.    mov     cl, al
  54.    sub     ch, ch          { CX = length of the String }
  55.    add     si, cx          { SI points to the last Character }
  56.    mov     dx, ds
  57.    mov     es, dx          { ES = DS }
  58.    mov     di, si          { DI = SI }
  59.    mov     dl, ah
  60.    sub     dh, dh          { DX = number of spaces to padd }
  61.    add     di, dx          { DI points to the new end of the String }
  62.    std                     { String ops backward }
  63.    rep     movsb           { Copy String to the new location }
  64.    pop     si              { SI points to S }
  65.    mov     di, si          { DI points to S }
  66.    add     al, ah          { AL = new length Byte }
  67.    cld                     { String ops Forward }
  68.    stosb                   { Store new length Byte }
  69.    mov     al, ' '
  70.    mov     cx, dx          { CX = number of spaces }
  71.    rep     stosb           { store spaces }
  72. @Done:
  73.    pop     ds              { Restore DS }
  74. end;
  75.  
  76. {
  77.         I wrote both examples specifically For posting in this
  78. conference (my regular code is For external Assembler and nowhere Nearly
  79. as well commented). Both Functions appear to work as advertised and
  80. should be very fast.
  81. }
  82.  
  83.